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3 1 01 © MODULE TBKSSV ( IDENT = 'v04-000' ) = 

: § 8 ! BEGIN 

: ¢ be ! Renn raiaanigietereserne esnnrr tamer 
; :* te 
3 $ 096 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8 * 
; 0 1 !* DIGITAL EQUIPMENT €ORPORATION, MAYNARD. MASSACHUSETTS. * 
3 3 43 } - ALL RIGHTS RESERVED. > 
; ; u 
ee | 010 1 !* THIS por Tyane 1s FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Bee 011 1 !* ONLY IN ceORDA NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
$ 1 Og 1 !® INCLUSION n OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ® 
3 1 1 1 !* COPIES hay on NOT BE PROVID R OTHERWISE MADE AVAILABLE TO ANY * 
3 14 014 1 !* OTHER PER ITLE TO AND OWNERSHIP OF THE SOFTWARE IS WHEREBY * 
4 1? Bia : is TRANSFERRED * 
; ; te 
3 17 B19 1 !e ie gh ory phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 18 318 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 i BRP ! - CORPORATION. a 
° } ® 
; 1 8 1 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: ¢ 4 ¢ } i SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ~ 
= 00 4 1 ie * 
3 2 4 5 ! J SODERONESSSHRSERRERSRSHNNEESSRERETENSIRRENENORNNELHSNENERENTENERSEETESENESeS 
; a 0 t 1! FACILITY: 

; 8 028 1! TRACEBACK 

: $3 0080 | ise 

; 1 0031 1 ! Abstract 

: ¢ + ; ! FAO formatting routine and output 

: : 38 : ' | Version: 11 

: 6 00 6 History: 

; ; sit ' * caret Peters, 11 January 1978 : Version 01 

: 40 040 1 | Modified by: 

2 41 1! e Roedger. 14 August 1978: Version 11 

: 4g § : } Victoria Holt, 21 December 1982 

; re 4 Revision history: 

; 46 6 1/ 02 18-jan-78 KGP “Added a modified version of 

; § 1! DBGEXC's wOaE PORT msg 

:; «648 3 1! 03 24-feb-78 KGP -Threw awa T nse as we now 

; 6449 049 1! use a "is em call” for 

3 ? 39 ' 04 28-fev-78 KGP “New, roy o> 1? $10 SETUP to to ,o} tow us 
3 ! o do 

3 § 26 1! 05 01-mar-78 KGP -New ny Scheme. ret Like DEBUG i.e. 
3 55 1! we always ‘encode’ inte an output buffer 
: 4 2 .s and then only do 1 

: 5 5 1! -I10_SETUP now works ate LOCALs te do 

: § 23 7 ! thé PUTMSG logical name Spenstat ) 

; oy. 7 ~TBKSOUT_PUT now SPUTs to both 
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SOOOCoCoooooooooooooo 
0000908 NINN NIN NINN IO O 
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a a a a 


1bose 3op= 488s 98:38:52 | Beeb GAASteRcc RACE chcarexssv.es203%" a 


SYSSOUTPUT and SYSSERROR if the two 


are not yne 
7-mar-78 KGP “New routine "TBKSPUTISG vp which writes 
out deat (via SYSS$P 
8-mar-78 KGP “tnenges 3a EQUIRE fis aaaed so 
is now separate from DEBUG. 
27-mar-78 KGP eatned” : KSPUTMSG 5 TBK FAKE nee 
-Added ve out MSG wh h is 


rit et ike BEBUG’s new (5X33) DBGSPUTMSG. 
s routine sorts out the problem of 
oftware- vs hardware-generated SIGNALS. 


26-APR~-78 DAR Hod tee require and library directives 
or native 
15-JUN-78 DAR FoRSPRO. all DBG$ symbols to TBKS. 
' pi enoeks for stream active and 
retries 
14-AUG-78 DAR In TBRSPUTHSG we should subtract 2 from 


ARG_LIST count if the exception code 
is Not found in the table of hardware 
exceptions. 

21-Dec-82 VJH Made corrections so that the original 
status is returned when the user turns 
off all the default message ags 
(SYSSPUTMSG does not define eye OUTPUT 
and SYSSERROR in that case). 


i 
Include files: 


REQUIRE 'SRC$:TBKPROLOG.REQ'; 
1 
External symbols: 


EXTERNAL ROUTINE 
sys$putmsg: ADDRESSING_MODE (GENERAL), 
sys$trnlog: ADDRESSING MODE (GENERAL), 
sys$faol: ADDRESSING_MODE (GENERAL); 


EXTERNAL 
tbk$cp_out_str : REF VECTORC, BYTE), ! POINTS INTO CURRENT OUTPUT BUFFER. 
holds current character count in output buffer 


RAB for 'SYS$OUTPUT' 
! RAB for ‘SYSSERROR' 
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TBKS 1b-se $1984 02:16:25 VAX-11 Bliss-32_ V4.0-742 Pa TB) 
v04= en 3ep-158e 99:36:54 DISRSUNGHASTERSEYRAGE. ShcaTBKSsv.83203°" (23 v0. 

é H Table of contents: 

FORWARD ROUTINE 

8 TBKSFAKE_MSG : NOVALUE, ! Write out fake traceback geseages. 

9 tbk$ ut msg, ! Write oyt system-generated SIGNAL messages. 

0 tbk$fao py : novalue, ! Format into an gu put buffer. 

1 TBKSIO_SETUP, ! Init 1/0 to SYSSOUTPUT and SYSSERROR. 

§ t kSout put : novalue, 

Z TBKSFAO_OUT : NOVALUE; ! Formatted output routine. 

é 

8 

9 


write out messages. 
translate sopicee names 
Format an ASCII string 
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GLOBAL ROUTINE tbk$fao_out (string, arguments) : NOVALUE = 


42 P 4 
SRCITBKSSV.B32;1>" (3) 


' Formal parameters: 

- the address of a counted control string to FAO 
arguments - may be absent. arguments to be applied to the 
FAO control string. 

! Implicit Tneytes 
! The RABs have been set up in TBKSIO_SETUP. 


WAWWAN AA AAAAAAWAI 


WOOO000000 0000000000000 


MEN 2 OOODNAUN EWN O OONOU EWN OODONO UNE WN 0 DONO NEW OO OONOUS 


i Implicit outputs: 
no 


ne. 


i Routine value: 
! novalue 


COOooooooocofo 


i Side effects: 
If either S$PUT fails we cause an S$EXIT 


' 

' 

' 

' 

| 

\ 

' 

' 

' 

' 

| 

! 

: Output parameters: 
none 
' 

‘ 

' 

' 

' 

' 

' 

' 

with the associated status code. 


— at ts 


LOCAL 


DOOCOOSSOOSOSOSOSOOOSOOOSOOSOOOSOOOOOOOOOOOOOOOOO 
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out_buf : VECTOR Ctty_out_width, BYTE], 
inp_desc : VECTO ° 

out_desc : VECT 

status; 


o 


!' Set up the needed string descriptors 
! and do the formatting. 
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BEGIN 
MAP 
string : REF VECTOR C, BYTE]; 


inp_desc = .strin ); 

ino dese 9 = string Cl); 

out_desc = tty_out_width; 

out desc = out_buf; 
: sysSfaol (inp_desc, tbk$gl_outprab Crab$w_rsz], out_desc, arguments); 
2 ! Output always goes to SYSSOUTPUT. 
4 tbk$gl_outprab Crab$l_rbf] = out_buf; 
r status = $PUT (RAB = Ebk$gl_outprab); 
4 5 IF .status EQL RMS$_RSA ! Record stream active error 
440 THEN 
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EGIN 
sual! “* = tbk$gl_outprab); 
Biosus = $PUT (RAB = tbk$gl_outprab); 


14 
' Output only goes to SYSSERROR if its ISI 
number is different from SYSSOUTPUT's. 


IF. TKSGL_OUTPRABL RABSW_ISI J] NEQ .TBKSGL_ERRRABC RABSW_ISI J ) 


COOOCOOOO NINA 


dd 

tbk$gl_errrab f rab$w_r 
tbk$gl_errrab Crab$l_rb 
status = SPUT (RAB = tb 
ign 0 tetus EQL RMS$_RSA 


BEGIN 
SWAIT (RAB = tbk$gl_errrab); 
piatus = SPUT (RAB = tbk$gl_errrab); 
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.TITLE TBKSSV 
“IDENT \V04-000\ 

.EXTRN SYSSPUTMSG, SYS$TRNLOG 
“EXTRN SYSS$FAOL, fBKSCP 


“EXTRN TBKSGL~OUTPRAB, TBKSGL_ERRRAB 
SEXTRN SYSS$PUT, SYSSWAIT 


~PSECT TBKSCODE,NOWRT, SHR, PIC,0 


.ENTRY TBKSFAO_OUT. Save R2.R3.R4.R5,.R6 > 0384 
MOVAB SYSSUAIT, R6 


S 
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3 8 OO 


44(SP), SP 

04 MOVZBL @STRING, INP_DES 0428 

08 AE 04 AC ADDL3. # STRING, INP_DESC+4 04 3 
04 AE MO OUT BUF, OUT_DESC+4 0431 

PUSHAB ARGOMENTS 0432 


OUT DESC 

He OUTPRAB+34 
CALLS &#4,~SYSSFAO 

MO 


000000996 09 L 
2 | geek TBKSGL_OUTPRAB+40 
# 


0037 
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TRESS, if: 
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55 ad Ti ry: e 19 
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5 if fe b 

2 § Dd 0 

Q000182DA_ = BF 36 ») 09 . 

o FRB 

3) DD $094 

65 9} FB 00096 

52 0 dO 00099 

04 0009C 
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3; Routine Size: 157 bytes, Routine Base: TBKSCODE + 0000 
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YSSWAIT 

S$PUT 

ATUS 
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STATUS 
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GLOBAL ROUTINE TBKSOUT_PUT =: NOVALUE = 


742 P 7 
SACI TBKSSV.B32;1>— (4) 


Functional Description: 
Cause the current output buffer 9 be output 
t9 SYSSOUTPUT Cand to SYSSERROR if the latter is 
different from the former]. 


Also do the needed initialization so that a subsequent 
call to TBKSFAO_PUT will go as expected. 


Catling Sequence: 
BKSOUT_PUT () 


Inputs: 
none. 


Implicit inputs: 
TBKSOUTPUT_BUF = is a pointer to the beginning of the current 
output buffer. This is Supposed to be a counted 
string except that no one has supplied the count yet. 
-@. we expect that the actual string to be printed 
starts in byte TBKSOUTPUT BUF+1. 
tbk$cp_out_str - points into this output Buffer at the first 
prese in the buffer which is NOT to be printed. 
tbk$gl_buf_siz - holds count of characters in buffer 


Outputs: 
Except for the leading <cr><lf> coy definition of SYSSOUTPUT), 
the string is printed, exactly as it is in the 
e 
t 
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buffer - ie, it should contain whatever carriage control 
you want. 


Implicit Outputs: 
A setup is done for subsequent 1/0. 


TITS 


Routine Value: 
NOVALUE. 


Side Effect 
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1 or 5 lines of output are $PUT. 


BEGIN 
! Fill im the count, and pass it to QI0. 


tbk$output_buf (0) = .tbk$gl_buf_siz; 
tbk$fao_out( uplit( Zascic "TAC'Y, thk$output_buf ); 


tbk$cp_out_str = gokSeutput buf +1; 
pbkSg _buf_siz = 0; 
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-PSECT TBKSPLIT,NOWRT, SHR, PIC,0 


IESE 


3; Routine Size: 


41 bytes, 
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eASCII <3>\!IAC\ 


-PSECT TBKSCODE,NOWRT, SHR, PIC,0 


.ENTRY TBKSOUT_PUT, Save R2,R3 

MOVAB TBK$GL_BuF_§17, R 

MOVAB TBKSOUTPUT “BUF . 

MOVB ret BUF "SIZ, FéKSOUTPUT _BUF 
PUSHL 

PUSHAB 

CALLS Woe At aKSF 

MOVAB TSKSOUTPUT “BUF, TBKS$CP_OUT_STR 
CLRL TBKSGL_BUF ~S1I2Z 
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ts 
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HESgoct9Re QG:N6:3E YAEL AgAssteB2c 
yer ROUTINE tbk$fake_msg( exception_name, parameter ) : novalue = 
Functional Description: 
Put out TRACE ‘error’ messages via SYSSPUTMSG. 


The reason we specify that this is via SYSSPUTMSG is that 

we want IT to decide where the output should go fe 

The reason we can't use PUTMSG directly is that it 

wants the argument of a signal array as its parameter 

when we simply have a message number and must therefore 

fake the signal. 

The reason we can't yse LIBSSIGNAL to put out the 

message is 1) we don't want a signal to be generated 

4 on top of the signal we are already handling, 

an 

2) LIBSSIGNAL's signal leaves it up to someone else 
(namely CLI's default frame or last chance handler) 
to decide where the output goes to, and we 

don't want to loose control of this, and 

more importantly, this someone else takes it 
upon itself to decide whether to give us 

back control again = we ALWAYS want control back 
when we do TBKSPUTMSG. 


exception_name <-The error message longword 
parameter -If non-zero, this gorseeter is passed on 
to PUTMSG in the signal arg List. 


Implicit Inputs: 


At most 1 parameter will be passed along with the 
signal array List. 


Side Effects: 


The meonege gets put out to the same place that all TRACE's 
other stuff goes to. 


The usual action taken on messages, based on their severity 
level, is overridden here - we always get control back 
and continue TRACEback. 
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Formal Parameters: 
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! 
i 
i 
ine 
BEGIN 
LOCAL 
! "FAKE® signal array to build 
: orgs to § SePUTnSS in. 
SIGNAL_ARRAY : VECTOR[6,LONG); 


' There must be atleast 2 entries in the 

' signal array. The Oth element is the 

' count of the rest, the next is always the 
! exception name. Subsequent ones are 
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3; Routine Size: 


NOW 


SOOCCSCOCOCOCOOCOOOOOOOOOOOOOOoOO 


DPV PV PPV PV IVP PVSUPVIVSVIUSVSV SUSI SVSTSVSISISIST 
WOOO 000 0000909000909 09 09000009 III 
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000000006 


3 
iBoSep-19H4 OBs]6:25 vAN-HT Liss 32 v4. 02742 


' suppose peranetors to the error message 
! along with their done arg count. 

! We only support having 8 or 1 associated 
! parameters becasue that 


s all we need. 


signal errayto) = 1; 
signal_arrayl1J = .exception_name; 


! If we got an arg, we pass it on. 
IF( PARAMETER NEQ 0 ) 
THEN 


BEGIN 

! Adding 1 arg means upping the total arg count 
! by two because we stuff in the new arg, and 

! its count (1), too. 

SIGNAL _ARRAY 23 = .SIGNAL_ARRAYCO] + 2; 


signal_arra 
SIGNAL ZARA = . PARAMETER; 


! Now we can just let the system routine 
' take care o 
! the message. 


SYSSPUTMSG( signal_array, 0, 0, 0); 


formatting and writing out 


a 00000 ENTRY TBKSFAKE_MSG, Save nothing 
5E 14 ¢ 0008 SUBL2 #20, SP 
01 DD 0000 PUSHL #1 
AE 04 AC DO 00007 MOVL EXCEPTION NAME, SIGNAL_ARRAY+4 
08 aC D5 0000C TSTL PARAMETER 
C 13 O000F BEQL 
6£ 2 cd 00011 ADDL2 #2, SIGNAL_ARRAY 
AE 1 09 14 MOVL #1, SIGNAL~ARRAY+8 
AE 08 Ac p 18 MOVL § PARAMETER, “SIGNAL_ARRAY+12 
ze : 1D 1$: CLRO = = (SP) 
E p 1F CLRL = = (SP) 
OC AE OF 1 PUSHAB SIGNAL_ARRAY 
00 04 FB 4 CALLS #4, SYSSPUTMSG 


44 bytes, Routine Base: TBKSCODE + 00C6 
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TBKSSV 1b-5¢ -1984 02:16:25 VAX-11 Bliss-32 V4.0-742 Page 11 T 
voes000 1 =300 7138 96:38:82 DISKSVMSMASTER: CTRACE. SRCITBKSSV.B32: 1° (6) v0 
; 3 GLOBAL ROUTINE TBKSPUT_MSG (sig_arg_list) = 
i Functional description: 
Reports a systonapenerated message by calling SYSSPUTMSG. 
This routine checks the exget on name to see if the quce tion is not 
a hardware exception. If it is not a hardware qnceet on 2 is subtracted 

n 


from the gignal argument List count before call YSSPUTMSG. 
After SYSSPUTMSG returns the original count is restored. 


Inputs: 
sig_arg_list - the address of the signal argument List. 


Implicit inputs: 
None 
Outputs: 
none 
Implicit outputs: 
none 


Routine value: 
The status value returned by SYSSPUTMSG. 


Side effects: 
SYSSPUTMSG is called - this defines the process 
logical name upon which TBKSIO_SETUP depends. 
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66 The message is output. 
68 
3 
71 3 LOCAL 
7 status, 
7 3 orig_arg_count, 
74 64 index, 
75 641 excep_name : BLOCK CXZUPVAL, BYTE] 
76 G4¢ tablevalue : BLOCK CZUPVAL, BYTE); 
Re tp 
ie Oss sig_arg_list : REF VECTOR; 
3 7 BIND 
648 hardware_excep = UPLIT WORD (ss$_accvio, ss$_artres, ss$_intovf, 
8 649 ss$_intdiv, ss$_fltovf, ss$_fltdiv, ss$_fltund, 
84 650 ss$_decovf, ss$_subrng, ss$_astflt, ss$_break, 
5 51 ss$_cmodsupr, ss$_cmoduser, ss$_compat, 
026 ss$_debug, ss$_opccus, ss$_opcdec. ss$_pagrderr, 
s$_radraod, ss$ rogrand, ss$_ssfail, ss$_tbit, 
3 3 ) ¥ VECTOR C, WORDJ; 
026 orig_arg_count = .sig_arg ‘i tC0); ' Get orignial arg. count 
91 5 excep_name = “sig arg_tist ii; ' Get gucept ton name 
; 028 IF (.é@xcep_name(STS$V"FAC_NO) NEQ 0) ! Not SYSTEM facility 
94 660 BEGIN 


TAKSSY If sep-1 93:38:82 DIS cSumGmASTERSCIRACE. ShcITBKSsv.832¢9°" (45 


: 8 o8¢ sig-arg.tistC0d = .sig_arg_list(0] - 2; ! update argument count 
; 39 66 ELSE 

; 398 ope BEGIN 

: 128 28? index = 0; 

: 401 $e) this loop will exit with -1 if_the exception name is not found. 
3 186 208 ! In that case we must subtract 2 from the signal argument List 
: ret bes ;_ argument count before calling SYSSPUTMSG. 

; 405 Deri ; iF (WHILE (.hardware_excepl.index] NEQ 0) 

: 409 8 : BEGIN 

; 408 674 table_value = vere except. index]; ! pres up ag v jue 
: re of Fey exceen nanet ets S$V_CODE) EQL .table_valuelSTS$v_CODE)) 

; i} EXITLOOP 0; 

: t18 ra index = .index + 1; 

: aig O68) 3 tHene” 

: 416 68 i ListlO] = .si ListlO] - 2; 

ci? oes em g_arg_listC0) sig_arg_list(0] - 2 

; 419 0685 ! Now, finally, output the message. 

: 421 be8s status = SYSSPUTMSG (.sig_arg list, 0, 0); 

: : ¢ bene sig_arg_list(0] = .orig_arg_count; 

; : ¢ Bene ! Return the status which PUTMSG returned. 

: 426 069¢ RETURN(. STATUS) ; 

; 427 069 

; 428 0694 1 END; 


-PSECT TBKSPLIT,NOWRT, SHR, PIC,0 


040C O4AC 0404 049C 0494 048C 0484 047C 0474 000C 00004 P.AAB: .WORD 1140 1148 B46) if 1164 1173 1180, - ; 
0454 044C 0444 043C 0434 046C 042C 0424 O041C O4i4 0018 1ifg, it 1078: 44, 1052, 1060, 1048, - : 
0000 0464 045C 0002C 1132. * 1092; 1100; 1108; 1116, - : 

HARDWARE_EXCEP= P.AAB 


-PSECT TBKSCODE,NOWRT, SHR, PIC,0 


003 .ENTRY TBKSPUT HSS, Sa e@ R2.R3.R4,R5 > 0604 

04 ac D MOVL tis ARG"L + 0656 

o Bf Rat tht, al tg to 7 

00 53 C 1 f CMPLV a6. 25 BHCE EXCeP _NAME, #0 ee 
1 CLR frvex > 0665 

51 a Re 16 1$: mOVIUL HARDWARE _EXCEPLINDEX), R1 : $663 


TBKS 18-se Sep-1 5 VAX-11 Bliss-32 V4.0-742 e 
VOs2000 rage tSRe 9838's. Nadel SteacctRate cacarexssy.es2ct%” ca 
13 1¢ BEQ 28 : 
4 D MOVL_ 1, TABLE VALUE + 0674 
4 A XORW3 EXCEP NAME. TABLE_VALUE, R1 + 0675 
7FFB OF 1 : BITw Ri, #3276 : 
7 A BEQL 3$ 3 
i) MF 
62 $ ¢ 33 SUBL2 ‘ (R2) + 068 
C CLRO. 20s = ( $P) ; 068 
DD PUSHL Re : 
000000006 00 g FB 00 CALLS SYSS$PUTMSG ; 
L : 
62 BO O05 HOV ORIG “ARG_COUNT, (R2) 688 


; Routine Size: 66 bytes, Routine Base: TBKSCODE + OOF2 
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53 -1984 02:16:25 VAX-11 Bliss-32 
16- Sep=1 7 96:38:82 DISKSVMSMASTER:[ 
GLOBAL ROUTINE tbk$fao_put( STRING, ARGUMENTS ) : NOVALUE = 


! FUNCTIONAL ByPcnie me 

DO JUST WHAT SFAO DOES, ONLY rb WE WORK IN 
CO-OPERATION WITH A GLOBAL CHARACTER BUFFER INTO 
WHICH WE ARE ENCODING ARBITRARY LINES OF OUTPUT. 


ALL output done within TRACE should use this 

routine to build output lines. Then, once the buffer 
has been filled ocest to TBKSOUT_PUT should be 

made to cause the. $PU 


FORMAL PARAMETERS: 
STRING - A COUNTED STRING WHICH CONTAINS THE DIRECTIVES FOR $FAO. 
ARGUMENTS = THE ARGS FOR S$FAO. 


IMPLICIT INPUTS: 
tbk$cp_out_str - pointes TO att B WE ARE IN THE 
CURRENT OUTPUT BUF 
tbk$gl_buf_siz = count of 2 Mh in output buffer. 


OUTPUTS: 
THE SFAO OUTPUT IS PUT INTO THE OUTPUT BUFFER. 


IMPLICIT OUTPUTS: 
THE GLOBAL cane ree POINTER . INCREMENTED SO THAT IT 
POINTS (AS ALWAYS) TO THE NEXT AVAILABLE PLACE IN THE 
OUTPUT ++ FER. The buffer count cortenta is incremented 
by the size of this string. 


ROUTINE VALUE: 
NONE. 


SIDE EFFECTS: 
NONE. 


BEGIN 
MAP 
STRING : REF VECTORC,BYTE); 
INT 434 : vEcTOnta3, ! INPUT DESC FOR S$FAO. 
DESC : VEC i OUTPUT DESC FOR SFAO. 
E: i $FAO RETURNS OUTPUT SIZE HERE. 


RS THAT $FAO art ASK IT TO DO 
7 THE otaent INTO 
A 


LOCAL 


INALLY UPDATE THE GLOBAL POINTER 
H RACTER POSITION IN THE BUFFER. 


Sut_str 
R_STZE, *OUT_DESC, ARGUMENTS ); 
TR_SIZE; 


= .STR 
= STRI 
] = TTY_OUT “G1ptH - 1 = .tbk$gl_buf_siz; 
soeSco 
I ESC, ST 
tL = ,tbk$cp_out_str * .ST 


ACE - SRCITBKSSV. B32; om 


EH 
7 


3; Routine Size: 


3 
1b-Sen-1984 9G: bis. eeeenBAd tens chRaCe Secarexssv.es203%" chs 
0758 2 rbkSglbuf_siz = .tbkSglbuf_siz + .STRSIZE: 


000¢ .ENTRY TBKSFAO_PUT, Save R2,R3 : 0695 
3 000000006 00 of 0092 MOVAB TBKSGL_BuF_$17, R3 ; 
: 000000006 00 3 00 HOVAB TEKSCBOUTSTR, R2 : 
Oc AE 04 BC 9A O03 MOVZBL as TRING INP_DESC + 074 
10 AE 04 ac 7 ¢ 1 DL3 #1, STRING, TNP_DESC+4 + 074 
04 AE 00000083 &F 63 ¢ OO1E SUBL3 TBKSGL_BUFS1Z,-#131, OUT_DESC > 0748 
08 AE 62 p MOVL — TBKSCP~OUT“STR. OUT_bESC+% + 0749 
8 AC OF : B PUSHAB ARGUMERTS + 0750 
8 AE OF E PUSHAB OUT_DESC ; 
8 AE 9F 00031 PUSHAB STR7SIZE ; 
18 AE OF 00 v PUSHAB INP~DESC ; 
000000006 00 04 FB 7 ALLS #4 SYSSFAOL ; 
50 ge 3C 0003E MOVZWL STR_SIZE, R : 0751 
$2 5 £0 60041 ADDL2 RO, TBKSCP QUT_STR : 
g ge ¢ 0044 MOVZ2WL STR_SIZE, R + 0752 
é 50 (CO 00047 ADDL2 RO, TBKS$GL_BUF_SIZ : 
04 0004A RET : 0753 


75 bytes, Routine Base: TBKSCODE + 0134 
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1b-se -1984 716:25 VAX-11 Bliss-32 V4.0-742 P 6 
1 ~3007 138% 9g: 48:33 DISKSVMSMASTER:CTRACE.SACITBKSSV.B32:1> (as 
GLOBAL ROUTINE TBKSIO_SETUP = 
i Functional Description: 


Set up the output FABs so that TRACE can 
output without opening or connecting to SYSSOUTPUT 
and/or SYSSERROR. 


This is done by assuning that SYSSPUTMSG has already 
done this AND that it has created a process Logjcat 
name (SYSSPUTMSG) to allow us to ‘steal’ the ISI 
numbers we need to properly initialize the RABs. 


Implicit Inputs: 


The equivalence name for SYSSPUTMSG has the following 
format: 


OUTPUT_ISI {| “xi1B | 


The *X11B is simply a prefix made up in the SYSSPUTMSG 
ereet ere inte “name code to ensure that if 

we get a TRNLOG here we get what we expect. If this 
prefix is NOT there we punt. 


Side Effects: 


The equivalence string for SYSSPUTMSG is requested 
from the ‘process’ logical name table. From this ‘fake' 
string is extracted the ISI numbers for SYSSERROR and 
YSSOUTPUT. These ISIs are stuffed into the 

RABs we use for $PUTting. 


El ee et eed ee te ee ee ee 


BEGIN see 
! Character string descriptor for 
! $y SPUTASG logical name 
putmsg_desc : vector(2,long], 
! Character string descriptor for resultant 
; eoytyalent string (from TRNLOG) 
equiv_desc : vectorl2,longl], 
' Equivalence name has a supposed 
: f xed vorngt. (See above). 
equiv_string : vector([8,word), 
status; 
' Set up a descriptor for the logical name 
! SYSSPUTMSG and for the equivalence name 


3 


' we assume Sy TePUTRSS se | crpeted. and then 
! translate this name to its ‘equivalence’ string 


PUTMSG- DES 
EQUIV pest 


EQUIV=DESC EQUIV_STRING; 


STATUS = SYSS$TRNLOG( § PUTMSG_DESC, 
Gulv_DESC, 


— 
o 
3 
o 
= 
o 


a LOG$C_PROCESS 
STATUS EQL SS$_NOTRAN 


PERLE XP_RQAPEDAP MAI 


SF 
VIFWN—OOONOULSWN—O0O~ 


FUSTSUSVSISISISIUII 


-PSECT 
47 53 4D 54 55 50 24 53 59 53 00032 P.AAC: .ASCII 
~EXTRN 
-PSECT 


53 000000006 00” 9 0002 ROVAB. 


ee 
! Ignore access m 


1$-Se0-1984 08:16:35 YAK 


PUTMSG_DESC(O) = ZCHARCOUNT (ZASCII 'SYSSPUTMSG' ); 
we BYTE (ZASCII ‘SYSSPUTMSG' ); 
= 


: 

: 

} i 

3 5 

3 8 8  . 

3 THEN 

3 8 8 RETURN (.STATUS); ! No translation. 
; 9 IF(NOT .STATUS EQL SS$_NORMAL) 

; é 8 ° —_ SEXIT( d STATUS ) 

3 code =. : 

; 568 0 ¢ ! no return 

; 569 0 

3 279 0834 ! Check for the special identifying word 

: nal 8 5 ! in the equivalence string. 

; 278 08 $ IF( .EQUIV_STRINGCO] NEQ %X'11B" ) 

3 574 3 8 THEN 

H 37? ge 4 SEXIT( code = TBKS_NOIOCHAN ); 

; 278 0841 ! Initialize what is needed by the rest of 

; 578 08 § ! TRACE's output routines. i.e. The output buffer 
s 579 8 ! pointers, and the ISI numbers we stuff 

: 280 : 3 ! into the RABs we use for SYSSERROR and SYSSOUTPUT. 
: 58 08 tbk$gl_outprabl RABSW_ISI J] = .EQUIV_STRING(1); 

: 388 bi? tbkSglrereraee RABSW_TSI J = EQUIV STRINGED, 

; 585 349 tbk$cp_out_str = tbkSoutput_buf +1; 

: 56 sey tbk$gl“buf_siz = 0; 

: 588 83¢ RETURN (.STATUS); 

3; 589 85 

; 590 854 END; 


TBKSPLIT, 


! Special name fits into 8 words. 


! Ignore resultant Length 
! Resultant string 
d 


descriptor. 
ble. 


ode 
s'' table only 


NOWRT, SHR, PIC,0 


\SYSSPUTMSG\ 


SYSSEXIT 
TBKSCODE, 


TBK$IO_SE 
SYSSEXTT, 


NOWRT, SHR, PIC,0 
Wee Save R2,R3 
R 
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PSECT SUMMARY 


: Name Bytes Attributes 
: TBKSCODE 507 NOVEC.NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(O) 
> TBKSPLIT 60 NOVEC;:NOWRT, RD. EXE, SHR, LCL, REL. CON, PIC.ALIGN(O) 


Library Statistics 


oe eer ee Tey are he Symbols -------- Pages Processing 
: File Total Loaded Percent Mapped Time 

; .$255$DUA28:(SYSLIBILIB.L32;1 18619 40 0 1000 00:01.9 
> 7$255$0UA28:C TRACE .OBJJTBKLIB.L32;1 157 1 0 14 00:00.3 
: 7$255$DUA28: (TRACE. OBJ JSTRUCDEF 3251 32 0 0 7 00:00.1 
> 78255$DUA28: CTRACE .OBJJTBKDST.L 32; 1 414 0 0 30 0:00.3 


; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$: TBKSSV/OBJ=0BJ$: TBKSSV MSRC$: TBKSSV/UPDATE=(ENHS: TBKSSV) 
507 sede + 60 data bytes 


: Lononee/SPUmie1 2 
: 103 pages 


; Run : 

> Lines/CPU Min: Bias 
i 
; Memor ry VS 

3; Compi ation Complete 


<+ 
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